home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 87 / 64er_Magazin_Sonderheft_87_19xx_Markt__Technik_de_Side_A.d64 / char converter (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  2KB  |  56 lines
  1. 10 poke53280,0:poke53281,0:print"[147]"
  2. 20 print"char converter"
  3. 30 print"eingabefiles (lo / hi):";
  4. 40 geta$:ifa$=""then40
  5. 50 ifa$="l"thenn1$="saved chr.cfl":n2$="saved vid.cfl":goto80
  6. 60 ifa$="h"thenn1$="saved chr.cfh":n2$="saved vid.cfh":goto80
  7. 70 goto40
  8. 80 printa$
  9. 85 print"ausgabefiles (lo / hi): ";
  10. 90 geta$:ifa$=""then90
  11. 100 ifa$="l"thenn3$="@:saved pic.gfl":goto130
  12. 110 ifa$="h"thenn3$="@:saved pic.gfh":goto130
  13. 120 goto90
  14. 130 printa$
  15. 135 print"[147]bitte warten.."
  16. 140 fori=1to13
  17. 150 poke49151+i,asc(mid$(n1$,i,1)):poke49167+i,asc(mid$(n2$,i,1)):next
  18. 160 fori=1to15:poke49183+i,asc(mid$(n3$,i,1)):next
  19. 170 gosub1000
  20. 180 sys65493
  21. 190 ifpeek(144)<>64then2000
  22. 200 gosub1000
  23. 210 poke187,16:poke782,80
  24. 220 sys65493
  25. 230 ifpeek(144)<>64then2000
  26. 240 print"[147]gespeicherte grafikmode: ";
  27. 250 ifpeek(21485)<>0thenb$="extended":goto280
  28. 260 ifpeek(21486)<>0thenb$="multicolor":goto280
  29. 270 b$="normal"
  30. 280 printb$
  31. 290 print"waehlen sie die grafikmode :"
  32. 300 print"normal"
  33. 310 print"multicolor"
  34. 320 print"extended"
  35. 330 geta$:ifa$=""then330
  36. 340 ifa$="n"thena=0:goto380
  37. 350 ifa$="m"thena=1:goto380
  38. 360 ifa$="e"thena=2:goto380
  39. 370 goto330
  40. 380 poke49200,a
  41. 390 print"[147]bitte warten.."
  42. 400 sys3336
  43. 999 end
  44. 1000 poke184,1:poke186,8:poke185,0
  45. 1010 poke183,13:poke187,0:poke188,192
  46. 1020 poke780,0:poke781,0:poke782,72
  47. 1030 return
  48. 2000 print"diskfehler :"
  49. 2010 open15,8,15
  50. 2020 input#15,d1$,d2$,d3$,d4$,d5$
  51. 2030 printd1$" "d2$" "d3$" "d4$" "d5$
  52. 2040 close15
  53. 2050 print"taste!      "
  54. 2060 geta$:ifa$=""then2060
  55. 2070 run
  56.